Developer CD Series 1995 August: Tool Chest/Dev.CD Aug 95 TC/Dev.CD Aug 95 TC.toast/Tool Chest/Development Tools & Languages/Dylan Related/Thomas/MacGambit⁄Thomas/MacGambit⁄Thomas Sources/Reference Notes/Reference Guide.scm

Text File | 1995-03-15 | 5.1 KB | 201 lines | [TEXT/gamI]

; ----------------------------------------------------------------------------
; File:        Reference Guide.scm
; Description: A small pocket reference guide for MacGambit 2.0.
; Author:      Mike Brumbelow @ ART
; Created:     09-Sep-94
; Language:    Scheme
; Status:      Experimental (Swim at your own risk)
;
;          (c) Copyright 1994, Advanced Robotic Technologies, Inc.
;              All Rights Reserved.
;
; ----------------------------------------------------------------------------

(mac#unsigned16->signed16 x)
(mac#event-what ev)
(mac#event-message ev)
(mac#event-when ev)
(mac#event-where ev)
(mac#event-modifiers ev)
(mac#modifiers-button? modifiers)
(mac#modifiers-command? modifiers)
(mac#modifiers-shift? modifiers)
(mac#modifiers-alphalock? modifiers)
(mac#modifiers-option? modifiers)

;; Quickdraw Points
(mac#point v h)
(mac#point-v r)
(mac#point-h r)
(mac#point-v-set! r x)
(mac#point-h-set! r x)

;; Quickdraw Rectangles
(mac#rect top left bottom right)
(mac#rect-top r)
(mac#rect-left r)
(mac#rect-bottom r)
(mac#rect-right r)
(mac#rect-top-set! r x)
(mac#rect-left-set! r x)
(mac#rect-bottom-set! r x)
(mac#rect-right-set! r x)


;; Quickdraw Color procedures
(mac#newcwindow bounds title visible procid behind goaway)
(mac#getnewcwindow windowid behind)
(mac#rgbforecolor red green blue)
(mac#rgbbackcolor red green blue)

; Quickdraw Non-Color procedures
(mac#newwindow bounds title visible procid behind goaway)
(mac#getnewwindow windowid behind)

(mac#disposewindow w)
(mac#selectwindow w)
(mac#hidewindow w)
(mac#showwindow w)
(mac#frontwindow)
(mac#bringtofront w)
(mac#showhide w flag)
(mac#hilitewindow w flag)
(mac#findwindow pt w-cell)
(mac#trackgoaway w pt)
(mac#dragwindow w pt r)
(mac#invalrect port r)
(mac#beginupdate w)
(mac#endupdate w)
(mac#openport port)
(mac#initport port)
(mac#closeport port)
(mac#setport port)
(mac#getport)
(mac#setorigin port h v)
(mac#backpat port pat)

(mac#hidecursor)
(mac#showcursor)
(mac#getcursor cursorid)
(mac#getccursor cursorid)
(mac#setcursor cursorhndl)
(mac#setccursor cursorhndl)
(mac#disposeccursor cursorhndl)
(mac#rotatecursor cursorhndl)
(mac#spincursor cursorhndl)

(mac#pensize port width height)
(mac#penmode port mode)
(mac#penpat port pat)
(mac#pennormal port)
(mac#moveto port h v)
(mac#move port dh dv)
(mac#lineto port h v)
(mac#line port dh dv)
(mac#textfont port font)
(mac#textface port face)
(mac#textmode port mode)
(mac#textsize port size)
(mac#spaceextra port extra)
(mac#drawchar port ch)
(mac#drawstring port s)
(mac#drawtext port textbuf firstbyte bytecount)
(mac#charwidth port ch)
(mac#stringwidth port s)
(mac#textwidth port textbuf firstbyte bytecount)
(mac#localtoglobal port pt)
(mac#globaltolocal port pt)
(mac#framerect port r)
(mac#paintrect port r)
(mac#eraserect port r)
(mac#invertrect port r)
(mac#fillrect port r pat)
(mac#frameroundrect port r ovwd ovht)
(mac#paintroundrect port r ovwd ovht)
(mac#eraseroundrect port r ovwd ovht)
(mac#invertroundrect port r ovwd ovht)
(mac#fillroundrect port r ovwd ovht pat)
(mac#frameoval port r)
(mac#paintoval port r)
(mac#eraseoval port r)
(mac#invertoval port r)
(mac#filloval port r pat)
(mac#framearc port r startangle arcangle)
(mac#paintarc port r startangle arcangle)
(mac#erasearc port r startangle arcangle)
(mac#invertarc port r startangle arcangle)
(mac#fillarc port r startangle arcangle pat)

(mac#openpoly)
(mac#closepoly)
(mac#offsetpoly poly h v)
(mac#killpoly poly)
(mac#framepoly poly)
(mac#paintpoly poly)
(mac#fillpoly poly pat)
(mac#erasepoly poly)
(mac#invertpoly poly)

(mac#menuselection selection)(mac#newmenu menuid str)
(mac#getmenu resourceid)
(mac#disposemenu themenu)
(mac#appendmenu themenu str)
(mac#addresmenu themenu thetype)
(mac#insertresmenu themenu thetype afteritem)
(mac#insertmenu themenu beforeid)
(mac#drawmenubar)
(mac#deletemenu menuid)
(mac#clearmenubar)
(mac#getnewmbar menubarid)
(mac#getmenubar)
(mac#setmenubar menulist)
(mac#menuselect p)
(mac#menukey ch)
(mac#hilitemenu menuid)
(mac#disableitem themenu item)
(mac#enableitem themenu item)
(mac#checkitem themenu item)
(mac#getmhandle menuid)

(mac#sfgetfile prompt ftypes)
(mac#sfputfile prompt default)
(mac#getmouse pt)
(mac#stilldown)
(mac#button)
(mac#tickcount)
(mac#delay duration)
(mac#sysbeep duration)
(mac#seteventmask themask)
(mac#jimsfunc) <------------ That Crazy Jim Nauer!!!
(mac#sendhle msgID buffer)
(mac#awaithle msgID)
(mac#waitgethle msgID buffer)
(mac#gethledata buffer)
(mac#loadpictfile file)
(mac#drawpict pict port)
(mac#loadrespict resid)
(mac#releaseresource pict)
(mac#setwindowpic port pict)
(mac#bringtofront w)
(mac#peek8 ptr)
(mac#poke8 ptr val) ;Ya gotta ask yourself - do ya feel lucky...punk? Do ya?
(mac#peek16 ptr)
(mac#poke16 ptr val)
(mac#peek32 ptr)
(mac#poke32 ptr val)
(mac_#filemodate file) - returns the creation date in seconds since 1/1/04
(mac#flashmenubar menuid)
(mac#edit filename (line 0) (char 0))
(open-text-window name)
(mac#help name)
(help (name ""))

;; Window manager
mac#window-bindings
mac#window-drag-bounds
(mac#window-bind w wind)
(mac#window-unbind w)
(mac#window-lookup w)
(mac#window-reset w)
(mac#window-handle-event wind-struct event)
(mac#event-handler event)